		.EQU SENSORES 00AH
		.ORG 00FH
		
	
PPI:    LD      A,90H 
		OUT     (07H),A ;Cargamos en el dispositivo de la puerta A el valor 90 en exa para configurarlo en modo control
		IN      A,(04h)	;Lectura DIPS 2 (llaves)
		OUT     (05H),A	;El byte cargado en A lo mandamos a la puerta 5. 
		LD		(SENSORES),A
		RET
		

		.ORG 0038H

			
		EI
		CALL MAIN
		CALL PPI
		RETI


		.EQU	HORAS		0602H
		.EQU	MINUTOS		0601H
		.EQU	SEGUNDOS	0600H
		.EQU	APDIS		67D6H
		.EQU	POSCUR		664CH
		.EQU	ENCPRT		6677H
		.EQU	READKB		50H
		.EQU	STATUS		01H
		.EQU 	DATA		00H
		.ORG 0100H

	
		
		
MAIN:			CALL	MOSTRAR
				CALL 	INCREMENTAR
				RET

; Mostrar horas, minutos y segundos

MOSTRAR:	LD	A,04H
		CALL	POSCUR
		LD	A,(SEGUNDOS)
		CALL	ENCPRT
		LD	A,02H
		CALL	POSCUR
		LD	A,(MINUTOS)
		CALL	ENCPRT
		LD	A,00H
		CALL	POSCUR
		LD	A,(HORAS)
		CALL	ENCPRT
		RET
		

INCREMENTAR:	LD	A,(SEGUNDOS)
		ADD	A,1
		DAA
		CP	60H
		JP	Z,INCMIN
		LD	(SEGUNDOS),A
		RET

INCMIN:		LD	A,00H
		LD	(SEGUNDOS),A
		LD	A,(MINUTOS)
		ADD	A,1
		DAA
		CP	60H
		JP	Z,INCHORAS
		LD	(MINUTOS),A
		RET

INCHORAS:	LD	A,00H
		LD	(MINUTOS),A
		LD	A,(HORAS)
		ADD	A,1
		DAA
		CP	24H
		JP	Z,INCMIN
		LD	(HORAS),A
		RET
		
		LD	A,00H
		LD	(HORAS),A
		RET


	.ORG 0200H
		
		LD	SP,075FH
		CALL	APDIS
		LD	A,00H
		LD	(SEGUNDOS),A
		LD	(MINUTOS),A
		LD	(HORAS),A
		IM	1
		EI
SALIDA: JP SALIDA
	
		
		